aa <- as.matrix (read.table ("test_tick_ui.dat", skip = 1))
res <- apply (aa[8000:20000,seq(2,11,2)], 2, mean)
